function procedure in qbasic

welcome to shbcf.ru